library(ggplot2)
Registered S3 method overwritten by 'dplyr':
  method           from
  print.rowwise_df     
Find out what's changed in ggplot2 at https://github.com/tidyverse/ggplot2/releases.

Download data from Ocean Adapt

Plot taxa by region by year to look for taxa that aren’t recorded consistently

sppbyyr <- trawl[, .(pres = length(spp)), by = .(region, year, spp)]
regs <- sppbyyr[, sort(unique(region))]

# loop through each region and make a plot
for(i in 1:length(regs)){
  p1 <- ggplot(sppbyyr[region == regs[i]], aes(x = year, y = spp, group = spp)) +
    geom_line(size = 0.2) +
    geom_point(size = 0.2) +
    theme(text=element_text(size = 3), 
          axis.text.x = element_text(angle = 90),
          strip.text.x = element_text(size = 5)) +
    ggtitle(regs[i])
  print(p1)
}

Trim out species not recorded consistently

Save out

save(trawl, file = "data/NE_trawl_data_full.Rdata")
LS0tCnRpdGxlOiAiU2V0dXAgTm9ydGggQW1lcmljYW4gVHJhd2wgRGF0YSIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3Igc2V0dXB9CmxpYnJhcnkoZGF0YS50YWJsZSkKbGlicmFyeShnZ3Bsb3QyKQpgYGAKCiMjIERvd25sb2FkIGRhdGEgZnJvbSBPY2VhbiBBZGFwdApgYGB7ciBpbXBvcnQgZGF0YSBmcm9tIE9jZWFuIEFkYXB0IG9uIEdpdEh1Yn0KCnRyYXdsIDwtIHJlYWRSRFModXJsKCdodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vcGluc2t5bGFiL09jZWFuQWRhcHQvbWFzdGVyL2RhdGFfY2xlYW4vYWxsLXJlZ2lvbnMtZnVsbC5yZHMnKSkKdHJhd2wgPC0gZGF0YS50YWJsZSh0cmF3bCkKYGBgCgojIFBsb3QgdGF4YSBieSByZWdpb24gYnkgeWVhciB0byBsb29rIGZvciB0YXhhIHRoYXQgYXJlbid0IHJlY29yZGVkIGNvbnNpc3RlbnRseQpgYGB7ciBwbG90IHNwZWNpZXMgYnkgcmVnaW9uIGJ5IHllYXIsIGZpZy5oZWlnaHQgPSAxNCwgZmlnLndpZHRoID0gM30Kc3BwYnl5ciA8LSB0cmF3bFssIC4ocHJlcyA9IGxlbmd0aChzcHApKSwgYnkgPSAuKHJlZ2lvbiwgeWVhciwgc3BwKV0KcmVncyA8LSBzcHBieXlyWywgc29ydCh1bmlxdWUocmVnaW9uKSldCgojIGxvb3AgdGhyb3VnaCBlYWNoIHJlZ2lvbiBhbmQgbWFrZSBhIHBsb3QKZm9yKGkgaW4gMTpsZW5ndGgocmVncykpewogIHAxIDwtIGdncGxvdChzcHBieXlyW3JlZ2lvbiA9PSByZWdzW2ldXSwgYWVzKHggPSB5ZWFyLCB5ID0gc3BwLCBncm91cCA9IHNwcCkpICsKICAgIGdlb21fbGluZShzaXplID0gMC4yKSArCiAgICBnZW9tX3BvaW50KHNpemUgPSAwLjIpICsKICAgIHRoZW1lKHRleHQ9ZWxlbWVudF90ZXh0KHNpemUgPSAzKSwgCiAgICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDkwKSwKICAgICAgICAgIHN0cmlwLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gNSkpICsKICAgIGdndGl0bGUocmVnc1tpXSkKICBwcmludChwMSkKfQoKYGBgCgojIyMgVHJpbSBvdXQgc3BlY2llcyBub3QgcmVjb3JkZWQgY29uc2lzdGVudGx5CmBgYHtyIHRyaW0gc3BlY2llc30KCmBgYAoKIyMjIFNhdmUgb3V0CmBgYHtyIHNhdmV9CnNhdmUodHJhd2wsIGZpbGUgPSAiZGF0YS9ORV90cmF3bF9kYXRhX2Z1bGwuUmRhdGEiKQpgYGAKCg==